From: Jay Belanger Date: Sun, 6 Mar 2011 02:04:41 +0000 (-0600) Subject: * cus-edit.el (custom-prompt-variable): Use the `custom-get' property X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~4500 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1282086c6b1319d0ed479c76241aad2eaba4003f;p=emacs.git * cus-edit.el (custom-prompt-variable): Use the `custom-get' property of the variable if it exists. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5620213fcd0..1bcdca7a59c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-03-06 Jay Belanger + + * cus-edit.el (custom-prompt-variable): Use the `custom-get' property + of the variable if it exists. + 2011-03-06 Juanma Barranquero * bookmark.el: diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 8d12511fcdf..88821652784 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -920,6 +920,8 @@ it were the arg to `interactive' (which see) to interactively read the value. If the variable has a `custom-type' property, it must be a widget and the `:prompt-value' property of that widget will be used for reading the value. +If the variable also has a `custom-get' property, that is used for finding +the current value of the variable, otherwise `symbol-value' is used. If optional COMMENT argument is non-nil, also prompt for a comment and return it as the third element in the list." @@ -941,7 +943,9 @@ it as the third element in the list." (widget-prompt-value type prompt (if (boundp var) - (symbol-value var)) + (funcall + (or (get var 'custom-get) 'symbol-value) + var)) (not (boundp var)))) (t (eval-minibuffer prompt))))))